/ Amiga Tools 5 / Amiga Tools 5.iso / tools / usefull / blocnotes / note00001a700000049600000a4e!

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ab 40 00 27 00 8c 00 64 | 00 f8 00 54 a7 00 00 00 |.@.'...d|...T....|
|00000010| 00 00 00 00 00 1a 70 00 | 00 04 96 00 00 0a 4e 01 |......p.|......N.|
|00000020| 00 00 00 00 00 01 00 2f | 2a 53 68 6f 77 4e 6f 74 |......./|*ShowNot|
|00000030| 65 2e 72 65 78 78 2a 2f | 0a 0a 49 46 20 50 4f 53 |e.rexx*/|..IF POS|
|00000040| 28 27 62 6c 6f 63 6e 6f | 74 65 73 2e 72 65 78 78 |('blocno|tes.rexx|
|00000050| 27 20 2c 20 53 48 4f 57 | 28 27 50 6f 72 74 73 27 |' , SHOW|('Ports'|
|00000060| 29 29 3d 30 20 54 48 45 | 4e 20 64 6f 0a 20 20 20 |))=0 THE|N do.   |
|00000070| 63 61 6c 6c 20 64 65 6c | 61 79 28 31 35 30 29 0a |call del|ay(150).|
|00000080| 20 20 20 49 46 20 50 4f | 53 28 27 62 6c 6f 63 6e |   IF PO|S('blocn|
|00000090| 6f 74 65 73 2e 72 65 78 | 78 27 20 2c 20 53 48 4f |otes.rex|x' , SHO|
|000000a0| 57 28 27 50 6f 72 74 73 | 27 29 29 3d 30 20 54 48 |W('Ports|'))=0 TH|
|000000b0| 45 4e 20 65 78 69 74 0a | 65 6e 64 0a 0a 0a 61 64 |EN exit.|end...ad|
|000000c0| 64 72 65 73 73 20 27 62 | 6c 6f 63 6e 6f 74 65 73 |dress 'b|locnotes|
|000000d0| 2e 72 65 78 78 27 0a 6f | 70 74 69 6f 6e 73 20 72 |.rexx'.o|ptions r|
|000000e0| 65 73 75 6c 74 73 0a 0a | 69 66 20 77 6f 72 64 73 |esults..|if words|
|000000f0| 28 41 72 67 28 31 29 29 | 3e 30 20 74 68 65 6e 20 |(Arg(1))|>0 then |
|00000100| 64 6f 0a 20 20 20 69 66 | 20 41 72 67 28 31 29 3d |do.   if| Arg(1)=|
|00000110| 27 3f 27 20 74 68 65 6e | 20 64 6f 0a 20 20 20 20 |'?' then| do.    |
|00000120| 20 20 73 61 79 20 27 55 | 53 41 47 45 3a 20 53 48 |  say 'U|SAGE: SH|
|00000130| 4f 57 4e 4f 54 45 20 3c | 70 61 74 74 65 72 6e 3e |OWNOTE <|pattern>|
|00000140| 27 0a 20 20 20 20 20 20 | 65 78 69 74 0a 20 20 20 |'.      |exit.   |
|00000150| 65 6e 64 0a 20 20 20 74 | 65 78 74 3d 41 72 67 28 |end.   t|ext=Arg(|
|00000160| 31 29 0a 20 20 20 53 45 | 41 52 43 48 20 74 65 78 |1).   SE|ARCH tex|
|00000170| 74 0a 20 20 20 69 64 3d | 72 65 73 75 6c 74 0a 20 |t.   id=|result. |
|00000180| 20 20 69 66 20 69 64 3d | 30 20 74 68 65 6e 20 64 |  if id=|0 then d|
|00000190| 6f 0a 20 20 20 20 20 20 | 73 61 79 20 27 4e 6f 74 |o.      |say 'Not|
|000001a0| 20 66 6f 75 6e 64 2e 27 | 0a 20 20 20 65 6e 64 0a | found.'|.   end.|
|000001b0| 20 20 20 53 48 4f 57 20 | 69 64 0a 65 6e 64 0a 0a |   SHOW |id.end..|
|000001c0| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|000001d0| 0a 0a 0a 0a 0a 0a 0a 0a | 0a                      |........|.       |
+--------+-------------------------+-------------------------+--------+--------+